home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Hyper / A-An / 4TrackStack2.cpt / 4-Track Stack / card_4693.txt < prev    next >
Text File  |  1989-05-02  |  15KB  |  655 lines
  1. -- card: 4693 from stack: in
  2. -- bmap block id: 0
  3. -- flags: 0000
  4. -- background id: 2968
  5. -- name: 
  6.  
  7.  
  8. -- part 127 (button)
  9. -- low flags: 00
  10. -- high flags: 2000
  11. -- rect: left=31 top=73 right=105 bottom=65
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 5212 / 5212
  14. -- text alignment: 1
  15. -- font id: 0
  16. -- text size: 12
  17. -- style flags: 0
  18. -- line height: 16
  19. -- part name: Trim1
  20. ----- HyperTalk script -----
  21. on mouseUp
  22.   put the short name of me into theField
  23.   if the optionkey is down then
  24.     subtract 1 from bkgnd field theField
  25.   else
  26.     add 1 to bkgnd field theField
  27.   end if
  28.   if bkgnd field theField > 12 then put 1 into bkgnd field theField
  29.   if bkgnd field theField < 1 then put 12 into bkgnd field theField
  30.   set the icon of me to (5200 + bkgnd field theField)
  31. end mouseUp
  32.  
  33.  
  34.  
  35. -- part 128 (button)
  36. -- low flags: 00
  37. -- high flags: 2000
  38. -- rect: left=78 top=73 right=105 bottom=112
  39. -- title width / last selected line: 0
  40. -- icon id / first selected line: 5212 / 5212
  41. -- text alignment: 1
  42. -- font id: 0
  43. -- text size: 12
  44. -- style flags: 0
  45. -- line height: 16
  46. -- part name: Trim2
  47. ----- HyperTalk script -----
  48. on mouseUp
  49.   put the short name of me into theField
  50.   if the optionkey is down then
  51.     subtract 1 from bkgnd field theField
  52.   else
  53.     add 1 to bkgnd field theField
  54.   end if
  55.   if bkgnd field theField > 12 then put 1 into bkgnd field theField
  56.   if bkgnd field theField < 1 then put 12 into bkgnd field theField
  57.   set the icon of me to (5200 + bkgnd field theField)
  58. end mouseUp
  59.  
  60.  
  61.  
  62. -- part 129 (button)
  63. -- low flags: 00
  64. -- high flags: 2000
  65. -- rect: left=126 top=73 right=105 bottom=160
  66. -- title width / last selected line: 0
  67. -- icon id / first selected line: 5212 / 5212
  68. -- text alignment: 1
  69. -- font id: 0
  70. -- text size: 12
  71. -- style flags: 0
  72. -- line height: 16
  73. -- part name: Trim3
  74. ----- HyperTalk script -----
  75. on mouseUp
  76.   put the short name of me into theField
  77.   if the optionkey is down then
  78.     subtract 1 from bkgnd field theField
  79.   else
  80.     add 1 to bkgnd field theField
  81.   end if
  82.   if bkgnd field theField > 12 then put 1 into bkgnd field theField
  83.   if bkgnd field theField < 1 then put 12 into bkgnd field theField
  84.   set the icon of me to (5200 + bkgnd field theField)
  85. end mouseUp
  86.  
  87.  
  88.  
  89. -- part 130 (button)
  90. -- low flags: 00
  91. -- high flags: 2000
  92. -- rect: left=171 top=73 right=105 bottom=205
  93. -- title width / last selected line: 0
  94. -- icon id / first selected line: 5212 / 5212
  95. -- text alignment: 1
  96. -- font id: 0
  97. -- text size: 12
  98. -- style flags: 0
  99. -- line height: 16
  100. -- part name: Trim4
  101. ----- HyperTalk script -----
  102. on mouseUp
  103.   put the short name of me into theField
  104.   if the optionkey is down then
  105.     subtract 1 from bkgnd field theField
  106.   else
  107.     add 1 to bkgnd field theField
  108.   end if
  109.   if bkgnd field theField > 12 then put 1 into bkgnd field theField
  110.   if bkgnd field theField < 1 then put 12 into bkgnd field theField
  111.   set the icon of me to (5200 + bkgnd field theField)
  112. end mouseUp
  113.  
  114.  
  115.  
  116. -- part 131 (button)
  117. -- low flags: 00
  118. -- high flags: 2000
  119. -- rect: left=31 top=109 right=141 bottom=65
  120. -- title width / last selected line: 0
  121. -- icon id / first selected line: 5312 / 5312
  122. -- text alignment: 1
  123. -- font id: 0
  124. -- text size: 12
  125. -- style flags: 0
  126. -- line height: 16
  127. -- part name: Hi1
  128. ----- HyperTalk script -----
  129. on mouseUp
  130.   put the short name of me into theField
  131.   if the optionkey is down then
  132.     subtract 1 from bkgnd field theField
  133.   else
  134.     add 1 to bkgnd field theField
  135.   end if
  136.   if bkgnd field theField > 12 then put 1 into bkgnd field theField
  137.   if bkgnd field theField < 1 then put 12 into bkgnd field theField
  138.   set the icon of me to (5300 + bkgnd field theField)
  139. end mouseUp
  140.  
  141.  
  142.  
  143. -- part 132 (button)
  144. -- low flags: 00
  145. -- high flags: 2000
  146. -- rect: left=78 top=109 right=141 bottom=112
  147. -- title width / last selected line: 0
  148. -- icon id / first selected line: 5312 / 5312
  149. -- text alignment: 1
  150. -- font id: 0
  151. -- text size: 12
  152. -- style flags: 0
  153. -- line height: 16
  154. -- part name: Hi2
  155. ----- HyperTalk script -----
  156. on mouseUp
  157.   put the short name of me into theField
  158.   if the optionkey is down then
  159.     subtract 1 from bkgnd field theField
  160.   else
  161.     add 1 to bkgnd field theField
  162.   end if
  163.   if bkgnd field theField > 12 then put 1 into bkgnd field theField
  164.   if bkgnd field theField < 1 then put 12 into bkgnd field theField
  165.   set the icon of me to (5300 + bkgnd field theField)
  166. end mouseUp
  167.  
  168.  
  169.  
  170. -- part 133 (button)
  171. -- low flags: 00
  172. -- high flags: 2000
  173. -- rect: left=126 top=109 right=141 bottom=160
  174. -- title width / last selected line: 0
  175. -- icon id / first selected line: 5312 / 5312
  176. -- text alignment: 1
  177. -- font id: 0
  178. -- text size: 12
  179. -- style flags: 0
  180. -- line height: 16
  181. -- part name: Hi3
  182. ----- HyperTalk script -----
  183. on mouseUp
  184.   put the short name of me into theField
  185.   if the optionkey is down then
  186.     subtract 1 from bkgnd field theField
  187.   else
  188.     add 1 to bkgnd field theField
  189.   end if
  190.   if bkgnd field theField > 12 then put 1 into bkgnd field theField
  191.   if bkgnd field theField < 1 then put 12 into bkgnd field theField
  192.   set the icon of me to (5300 + bkgnd field theField)
  193. end mouseUp
  194.  
  195.  
  196.  
  197. -- part 134 (button)
  198. -- low flags: 00
  199. -- high flags: 2000
  200. -- rect: left=171 top=109 right=141 bottom=205
  201. -- title width / last selected line: 0
  202. -- icon id / first selected line: 5312 / 5312
  203. -- text alignment: 1
  204. -- font id: 0
  205. -- text size: 12
  206. -- style flags: 0
  207. -- line height: 16
  208. -- part name: Hi4
  209. ----- HyperTalk script -----
  210. on mouseUp
  211.   put the short name of me into theField
  212.   if the optionkey is down then
  213.     subtract 1 from bkgnd field theField
  214.   else
  215.     add 1 to bkgnd field theField
  216.   end if
  217.   if bkgnd field theField > 12 then put 1 into bkgnd field theField
  218.   if bkgnd field theField < 1 then put 12 into bkgnd field theField
  219.   set the icon of me to (5300 + bkgnd field theField)
  220. end mouseUp
  221.  
  222.  
  223.  
  224. -- part 135 (button)
  225. -- low flags: 00
  226. -- high flags: 2000
  227. -- rect: left=31 top=145 right=177 bottom=65
  228. -- title width / last selected line: 0
  229. -- icon id / first selected line: 5312 / 5312
  230. -- text alignment: 1
  231. -- font id: 0
  232. -- text size: 12
  233. -- style flags: 0
  234. -- line height: 16
  235. -- part name: Lo1
  236. ----- HyperTalk script -----
  237. on mouseUp
  238.   put the short name of me into theField
  239.   if the optionkey is down then
  240.     subtract 1 from bkgnd field theField
  241.   else
  242.     add 1 to bkgnd field theField
  243.   end if
  244.   if bkgnd field theField > 12 then put 1 into bkgnd field theField
  245.   if bkgnd field theField < 1 then put 12 into bkgnd field theField
  246.   set the icon of me to (5300 + bkgnd field theField)
  247. end mouseUp
  248.  
  249.  
  250.  
  251. -- part 136 (button)
  252. -- low flags: 00
  253. -- high flags: 2000
  254. -- rect: left=78 top=145 right=177 bottom=112
  255. -- title width / last selected line: 0
  256. -- icon id / first selected line: 5312 / 5312
  257. -- text alignment: 1
  258. -- font id: 0
  259. -- text size: 12
  260. -- style flags: 0
  261. -- line height: 16
  262. -- part name: Lo2
  263. ----- HyperTalk script -----
  264. on mouseUp
  265.   put the short name of me into theField
  266.   if the optionkey is down then
  267.     subtract 1 from bkgnd field theField
  268.   else
  269.     add 1 to bkgnd field theField
  270.   end if
  271.   if bkgnd field theField > 12 then put 1 into bkgnd field theField
  272.   if bkgnd field theField < 1 then put 12 into bkgnd field theField
  273.   set the icon of me to (5300 + bkgnd field theField)
  274. end mouseUp
  275.  
  276.  
  277.  
  278. -- part 137 (button)
  279. -- low flags: 00
  280. -- high flags: 2000
  281. -- rect: left=126 top=145 right=177 bottom=160
  282. -- title width / last selected line: 0
  283. -- icon id / first selected line: 5312 / 5312
  284. -- text alignment: 1
  285. -- font id: 0
  286. -- text size: 12
  287. -- style flags: 0
  288. -- line height: 16
  289. -- part name: Lo3
  290. ----- HyperTalk script -----
  291. on mouseUp
  292.   put the short name of me into theField
  293.   if the optionkey is down then
  294.     subtract 1 from bkgnd field theField
  295.   else
  296.     add 1 to bkgnd field theField
  297.   end if
  298.   if bkgnd field theField > 12 then put 1 into bkgnd field theField
  299.   if bkgnd field theField < 1 then put 12 into bkgnd field theField
  300.   set the icon of me to (5300 + bkgnd field theField)
  301. end mouseUp
  302.  
  303.  
  304.  
  305. -- part 138 (button)
  306. -- low flags: 00
  307. -- high flags: 2000
  308. -- rect: left=171 top=145 right=177 bottom=205
  309. -- title width / last selected line: 0
  310. -- icon id / first selected line: 5312 / 5312
  311. -- text alignment: 1
  312. -- font id: 0
  313. -- text size: 12
  314. -- style flags: 0
  315. -- line height: 16
  316. -- part name: Lo4
  317. ----- HyperTalk script -----
  318. on mouseUp
  319.   put the short name of me into theField
  320.   if the optionkey is down then
  321.     subtract 1 from bkgnd field theField
  322.   else
  323.     add 1 to bkgnd field theField
  324.   end if
  325.   if bkgnd field theField > 12 then put 1 into bkgnd field theField
  326.   if bkgnd field theField < 1 then put 12 into bkgnd field theField
  327.   set the icon of me to (5300 + bkgnd field theField)
  328. end mouseUp
  329.  
  330.  
  331.  
  332. -- part 139 (button)
  333. -- low flags: 00
  334. -- high flags: 2000
  335. -- rect: left=31 top=180 right=212 bottom=65
  336. -- title width / last selected line: 0
  337. -- icon id / first selected line: 5412 / 5412
  338. -- text alignment: 1
  339. -- font id: 0
  340. -- text size: 12
  341. -- style flags: 0
  342. -- line height: 16
  343. -- part name: Pan1
  344. ----- HyperTalk script -----
  345. on mouseUp
  346.   put the short name of me into theField
  347.   if the optionkey is down then
  348.     subtract 1 from bkgnd field theField
  349.   else
  350.     add 1 to bkgnd field theField
  351.   end if
  352.   if bkgnd field theField > 12 then put 1 into bkgnd field theField
  353.   if bkgnd field theField < 1 then put 12 into bkgnd field theField
  354.   set the icon of me to (5400 + bkgnd field theField)
  355. end mouseUp
  356.  
  357.  
  358.  
  359. -- part 140 (button)
  360. -- low flags: 00
  361. -- high flags: 2000
  362. -- rect: left=78 top=180 right=212 bottom=112
  363. -- title width / last selected line: 0
  364. -- icon id / first selected line: 5412 / 5412
  365. -- text alignment: 1
  366. -- font id: 0
  367. -- text size: 12
  368. -- style flags: 0
  369. -- line height: 16
  370. -- part name: Pan2
  371. ----- HyperTalk script -----
  372. on mouseUp
  373.   put the short name of me into theField
  374.   if the optionkey is down then
  375.     subtract 1 from bkgnd field theField
  376.   else
  377.     add 1 to bkgnd field theField
  378.   end if
  379.   if bkgnd field theField > 12 then put 1 into bkgnd field theField
  380.   if bkgnd field theField < 1 then put 12 into bkgnd field theField
  381.   set the icon of me to (5400 + bkgnd field theField)
  382. end mouseUp
  383.  
  384.  
  385.  
  386. -- part 141 (button)
  387. -- low flags: 00
  388. -- high flags: 2000
  389. -- rect: left=126 top=180 right=212 bottom=160
  390. -- title width / last selected line: 0
  391. -- icon id / first selected line: 5412 / 5412
  392. -- text alignment: 1
  393. -- font id: 0
  394. -- text size: 12
  395. -- style flags: 0
  396. -- line height: 16
  397. -- part name: Pan3
  398. ----- HyperTalk script -----
  399. on mouseUp
  400.   put the short name of me into theField
  401.   if the optionkey is down then
  402.     subtract 1 from bkgnd field theField
  403.   else
  404.     add 1 to bkgnd field theField
  405.   end if
  406.   if bkgnd field theField > 12 then put 1 into bkgnd field theField
  407.   if bkgnd field theField < 1 then put 12 into bkgnd field theField
  408.   set the icon of me to (5400 + bkgnd field theField)
  409. end mouseUp
  410.  
  411.  
  412.  
  413. -- part 142 (button)
  414. -- low flags: 00
  415. -- high flags: 2000
  416. -- rect: left=171 top=180 right=212 bottom=205
  417. -- title width / last selected line: 0
  418. -- icon id / first selected line: 5412 / 5412
  419. -- text alignment: 1
  420. -- font id: 0
  421. -- text size: 12
  422. -- style flags: 0
  423. -- line height: 16
  424. -- part name: Pan4
  425. ----- HyperTalk script -----
  426. on mouseUp
  427.   put the short name of me into theField
  428.   if the optionkey is down then
  429.     subtract 1 from bkgnd field theField
  430.   else
  431.     add 1 to bkgnd field theField
  432.   end if
  433.   if bkgnd field theField > 12 then put 1 into bkgnd field theField
  434.   if bkgnd field theField < 1 then put 12 into bkgnd field theField
  435.   set the icon of me to (5400 + bkgnd field theField)
  436. end mouseUp
  437.  
  438.  
  439.  
  440. -- part 143 (button)
  441. -- low flags: 00
  442. -- high flags: 2000
  443. -- rect: left=32 top=249 right=266 bottom=66
  444. -- title width / last selected line: 0
  445. -- icon id / first selected line: 6000 / 6000
  446. -- text alignment: 1
  447. -- font id: 0
  448. -- text size: 12
  449. -- style flags: 0
  450. -- line height: 16
  451. -- part name: Level1 Slider
  452. ----- HyperTalk script -----
  453. on mouseUp
  454.   send mouseup to bkgnd btn "level1"
  455. end mouseUp
  456.  
  457.  
  458.  
  459. -- part 144 (button)
  460. -- low flags: 00
  461. -- high flags: 2000
  462. -- rect: left=80 top=249 right=266 bottom=113
  463. -- title width / last selected line: 0
  464. -- icon id / first selected line: 6000 / 6000
  465. -- text alignment: 1
  466. -- font id: 0
  467. -- text size: 12
  468. -- style flags: 0
  469. -- line height: 16
  470. -- part name: Level2 Slider
  471. ----- HyperTalk script -----
  472. on mouseUp
  473.   send mouseup to bkgnd btn "level2"
  474. end mouseUp
  475.  
  476.  
  477.  
  478. -- part 145 (button)
  479. -- low flags: 00
  480. -- high flags: 2000
  481. -- rect: left=127 top=249 right=266 bottom=160
  482. -- title width / last selected line: 0
  483. -- icon id / first selected line: 6000 / 6000
  484. -- text alignment: 1
  485. -- font id: 0
  486. -- text size: 12
  487. -- style flags: 0
  488. -- line height: 16
  489. -- part name: Level3 Slider
  490. ----- HyperTalk script -----
  491. on mouseUp
  492.   send mouseup to bkgnd btn "level3"
  493. end mouseUp
  494.  
  495.  
  496.  
  497. -- part 146 (button)
  498. -- low flags: 00
  499. -- high flags: 2000
  500. -- rect: left=172 top=249 right=266 bottom=205
  501. -- title width / last selected line: 0
  502. -- icon id / first selected line: 6000 / 6000
  503. -- text alignment: 1
  504. -- font id: 0
  505. -- text size: 12
  506. -- style flags: 0
  507. -- line height: 16
  508. -- part name: Level4 Slider
  509. ----- HyperTalk script -----
  510. on mouseUp
  511.   send mouseup to bkgnd btn "level4"
  512. end mouseUp
  513.  
  514.  
  515.  
  516. -- part contents for background part 23
  517. ----- text -----
  518. 0000
  519.  
  520. -- part contents for background part 22
  521. ----- text -----
  522. 4:43
  523.  
  524. -- part contents for background part 27
  525. ----- text -----
  526. Lead Voc.
  527.  
  528.  
  529. -- part contents for background part 26
  530. ----- text -----
  531. Drums
  532.  
  533. -- part contents for background part 25
  534. ----- text -----
  535. Bass
  536.  
  537. -- part contents for background part 24
  538. ----- text -----
  539. Guitar
  540.  
  541. -- part contents for background part 69
  542. ----- text -----
  543. Tape 1b
  544.  
  545. -- part contents for background part 70
  546. ----- text -----
  547. Deep Purple
  548.  
  549. -- part contents for background part 71
  550. ----- text -----
  551. Deep Purple
  552.  
  553. -- part contents for background part 72
  554. ----- text -----
  555. 5/2/89
  556.  
  557. -- part contents for background part 73
  558. ----- text -----
  559. Smoke on the Water
  560.  
  561. -- part contents for background part 79
  562. ----- text -----
  563. 878653
  564.  
  565. -- part contents for background part 28
  566. ----- text -----
  567. 12
  568.  
  569. -- part contents for background part 32
  570. ----- text -----
  571. 12
  572.  
  573. -- part contents for background part 36
  574. ----- text -----
  575. 12
  576.  
  577. -- part contents for background part 40
  578. ----- text -----
  579. 12
  580.  
  581. -- part contents for background part 29
  582. ----- text -----
  583. 12
  584.  
  585. -- part contents for background part 33
  586. ----- text -----
  587. 12
  588.  
  589. -- part contents for background part 37
  590. ----- text -----
  591. 12
  592.  
  593. -- part contents for background part 41
  594. ----- text -----
  595. 12
  596.  
  597. -- part contents for background part 30
  598. ----- text -----
  599. 12
  600.  
  601. -- part contents for background part 34
  602. ----- text -----
  603. 12
  604.  
  605. -- part contents for background part 38
  606. ----- text -----
  607. 12
  608.  
  609. -- part contents for background part 42
  610. ----- text -----
  611. 12
  612.  
  613. -- part contents for background part 31
  614. ----- text -----
  615. 12
  616.  
  617. -- part contents for background part 35
  618. ----- text -----
  619. 12
  620.  
  621. -- part contents for background part 39
  622. ----- text -----
  623. 12
  624.  
  625. -- part contents for background part 43
  626. ----- text -----
  627. 12
  628.  
  629. -- part contents for background part 47
  630. ----- text -----
  631. 7
  632.  
  633. -- part contents for background part 46
  634. ----- text -----
  635. 7
  636.  
  637. -- part contents for background part 45
  638. ----- text -----
  639. 7
  640.  
  641. -- part contents for background part 44
  642. ----- text -----
  643. 7
  644.  
  645. -- part contents for background part 89
  646. ----- text -----
  647. Smoke on the Water
  648.  
  649. We all came out to Montreaux
  650. On the lake Himira shoreline
  651. To make records with a mobile
  652. We didn't have much time
  653.  
  654. etc...
  655.